# -*- mode: snippet -*-
# name: reshape from stats, Reshape Grouped Data
# key: stats.reshape.l2w.w2l
# key: reshape@stats.l2w.w2l
# contributor : Shuguang Sun
# --
$1.long <- reshape(data      = $1,
                   varying   = c($2), # Used in wide-to-long
                   ## v.names   = "", # Used in long-to-wide
                   timevar   = "time",
                   idvar     = "id",
                   direction = "long",
                   sep       = ""
                   )
